(reb-update-overlays): Do not mark zero-width regexps as invalid

but rather at least count them correctly.

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index dc4562ab9bbd6295b6bc457e953e57d7f8cdd3ec..2d3b4832cdab11eab99978a57cf8d8c072c43b9d 100644 (file)
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -639,11 +639,13 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
       (set-buffer reb-target-buffer)
       (reb-delete-overlays)
       (goto-char (point-min))
-      (while (and (re-search-forward re (point-max) t)
+      (while (and (not (eobp))
+                 (re-search-forward re (point-max) t)
                  (or (not reb-auto-match-limit)
                      (< matches reb-auto-match-limit)))
        (if (= 0 (length (match-string 0)))
-           (error "Empty regular expression!"))
+           (unless (eobp)
+             (forward-char 1)))
        (let ((i 0)
              suffix max-suffix)
          (setq matches (1+ matches))